program my_array
    implicit none

    interface 
                subroutine print_c(n1,n2, n3)
                    ! 参数需要正确   n2 必须指定
                      integer, DIMENSION(n2, n3) :: n1
                      INTEGER :: n2, n3
                end subroutine
                
          end interface

    real, dimension(5) :: a
    integer :: b(2, 6)
    integer :: k, k2, t, i, j
    ! write(*,*) shape(a)
    b = reshape((/1,2,3,4,5,6,7,8, 9, 10, 11, 12/),(/2, 6/))
!     b = (/1,2,3,4,5,6,7,8, 9, 10, 11, 12/)
    write(*,*) size(a)
    write(*,*) size(b)
    ! do k = 1,3
    !   do j = 1,2
    !     do i = 1,2
    !       write(*,*) b(i+ j*2 + k*4)
    !     end do
    !   end do
    ! end do
    WRITE(*,*) b
    ! t = size(b)    ;
    CALL print_c(b, 2, 6);
    ! write(*,*) size(a,2)
    ! write(*,*) lbound(a)
    ! write(*,*) size(a)
    ! t = 1
    ! do k = 1,size(a,2)
    !    do k2 = 1,size(a,1)
    !       a(k2,k) = t
    !       t = t+1
    !    end do
    ! end do
    ! write(*,*) sin(a)
    ! write(*,*) 2.*a
    ! write(*,*) 10*a
    ! write(*,*) 10.*a
    ! write(*,*) 1/a
    ! write(*,*) 1./a
  end program my_array
  